home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Programming / AMOS / AMOSList0597 / AMOSLIST / text0058.txt < prev    next >
Encoding:
Text File  |  1997-06-01  |  1.4 KB  |  63 lines
  1. Lonestar@kulmbach.baynet.de wrote on 11-Mai-97:
  2.  
  3. > Is there any possibility to play Anim-5 format animations?
  4. > Not these standard one-palette-iff-animations! I mean
  5. > the new iff-animations with a single palette for each picture in
  6. > the animation!
  7.  
  8. I solved this by reading out the palette from the CMAP chunk by  hand  each
  9. frame.
  10.  
  11. This is how the anim-playing routine could look like...
  12.  
  13. Procedure blah
  14.   Wload "b1.anim",10
  15.   Wload "b2.anim",11
  16.   Wload "b3.anim",12
  17.   Screen 7 : For A=0 To 31 : Colour A,0 : Next 
  18.   ST=Start(10) : LE=Length(9) : ED=ST+LE
  19.   ST=Frame Play(ST+12,1,0)
  20.   Double Buffer : Autoback 0
  21.   For A=0 To 653
  22.     Gosub DRAFRAME
  23.   Next 
  24.   ST=Start(11)+12
  25.   For A=0 To 366
  26.     Gosub DRAFRAME
  27.   Next 
  28.   ST=Start(12)+12
  29.   For A=0 To 250
  30.     Gosub DRAFRAME
  31.   Next 
  32.   Erase 10
  33.   Erase 11
  34.   Erase 12
  35.   Screen Close 0
  36. Pop Proc
  37. DRAFRAME:
  38.   NST=Frame Play(ST,1)
  39.   AD=Hunt(ST To NST,"CMAP")
  40.   If AD
  41.     Add AD,8
  42.     For AA=0 To 31
  43.       C0=Peek(AD)/16 : C1=Peek(AD+1)/16 : C2=Peek(AD+2)/16 : Add AD,3
  44.       Colour AA,Glue Colour(C0,C1,C2)
  45.     Next 
  46.   End If 
  47.   Screen Swap : Wait Vbl 
  48.   ST=NST
  49. Return 
  50.  
  51. -- 
  52. Best Regards,
  53.  _____    __   _  __  ______    ___  __  __   __
  54. |"("  \()/" ) (_)/" )("     \()/\" \(__)/" ) /" )
  55. |  )   )/  /    /  /| \______)/" \  \  /  /|/  /
  56. | (___//  /    /  /"|   |" | (  (_\__)/  /"/  /
  57. |  |  /  /"\  /  /  | _ |  | _\  /  //  /|/  /__
  58. |__| (__/___)(__/|__|(_)|__|(_)\/__/(__/ (__/(MM)
  59.  
  60.  
  61.  
  62.  
  63.